home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / mathrat.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-06-22  |  3.9 KB  |  87 lines
  1. 10  CLS:KEY OFF:COLOR 5
  2. 20  LOCATE 8,25:PRINT"(1) Rate = Amount/Base"
  3. 30     LOCATE 10,25:PRINT"(2) Amount = Base * Rate
  4. 40        LOCATE 12,25:PRINT"(3) Base = Amount/Rate
  5. 50            LOCATE 14,25:PRINT"(4) ";:COLOR 10:PRINT"Save Program";:COLOR 5:PRINT" "
  6. 60          LOCATE 16,25:PRINT"(5) ";:COLOR 31:PRINT"Exit Program";:COLOR 5:PRINT" "
  7. 70           LOCATE 19,29:COLOR 15:PRINT"Choose An Option":COLOR 5
  8. 80  A$=INKEY$
  9. 90     A=VAL(A$)
  10. 100       ON A GOTO 120,310,500,720,790
  11. 110  GOTO 80
  12. 120  CLS:COLOR 15:LOCATE 10,25:PRINT"(1) ";:COLOR 31:PRINT"Rate = Amount/Base";:COLOR 5:PRINT" "
  13. 130     LOCATE 12,25:PRINT"(2) Amount = Base * Rate
  14. 140        LOCATE 14,25:PRINT"(3) Base = Amount/Rate
  15. 150  LOCATE 25,25:COLOR 15:PRINT"Press ANY Key to Continue":COLOR 5
  16. 160     I$=INPUT$(1)
  17. 170  CLS:LOCATE 5,10:PRINT"Rate = percentage (%)"
  18. 180     LOCATE 7,10:PRINT"Amount = subsample; example: 3 of 10.  3 = Amount"
  19. 190        LOCATE 9,10:PRINT"Base = total number in the sample (n); N = 10."
  20. 200  LOCATE 14,10:PRINT"You want to determine the ";:COLOR 15:PRINT"RATE or Percentage";:COLOR 5:PRINT" here."
  21. 210     LOCATE 16,10:PRINT"What is the subsample value?    A =  "
  22. 220       LOCATE 16,46:COLOR 15:INPUT A:COLOR 5
  23. 230          LOCATE 18,10:PRINT"Now, enter the sample value.    N = "
  24. 240             LOCATE 18,46:COLOR 15:INPUT B:COLOR 5
  25. 250  R = A/B: N = R * 100
  26. 260  N = INT((N + 0.005)*100)/100
  27. 270    LOCATE 22,10:PRINT"The computed response is" N "percent."
  28. 280        LOCATE 25,25:PRINT"Press [";:COLOR 31:PRINT"R";:COLOR 5:PRINT"] to return to menu"
  29. 290  R$ = INKEY$:IF R$ = "r" OR R$ = "R" THEN 10
  30. 300  GOTO 290
  31. 310  CLS:LOCATE 10,25:PRINT"(1) Rate = Amount/Base"
  32. 320     LOCATE 12,25:COLOR 15:PRINT"(2) ";:COLOR 31:PRINT"Amount = Base * Rate";:COLOR 5:PRINT" "
  33. 330       LOCATE 14,25:PRINT"(3) Base = Amount/Rate
  34. 340  LOCATE 25,27:PRINT"Press ";:COLOR 31:PRINT"SPACEBAR";:COLOR 5:PRINT" to Continue"
  35. 350  IF INKEY$ <> " " THEN 350
  36. 360  CLS:LOCATE 5,10:PRINT"Rate = percentage (%)"
  37. 370     LOCATE 7,10:PRINT"Amount = subsample; example: 3 of 10.  3 = Amount"
  38. 380        LOCATE 9,10:PRINT"Base = total number in the sample (n); N = 10."
  39. 390  LOCATE 14,10:PRINT"You want to determine the ";:COLOR 15:PRINT"AMOUNT or Subsample";:COLOR 5:PRINT" here."
  40. 400    LOCATE 16,10:PRINT"What is the value of the entire sample (N) "
  41. 410       LOCATE 16,53:COLOR 15:INPUT B:COLOR 5
  42. 420    LOCATE 18,10:PRINT"What is the ";:COLOR 31:PRINT"percent";:COLOR 5:PRINT" equivalent "
  43. 430      LOCATE 18,41:COLOR 15:INPUT R:COLOR 5
  44. 440  A=B * R : N = R/100 * B
  45. 450  N=INT((N+0.005) * 100)/100
  46. 460     LOCATE 20,10:PRINT"The computed value of the subsample is " N"
  47. 470        LOCATE 25,25:PRINT"Press [";:COLOR 31:PRINT"R";:COLOR 5:PRINT"] to return to menu"
  48. 480  R$ = INKEY$:IF R$ = "r" OR R$ = "R" THEN 10
  49. 490  GOTO 480
  50. 500  CLS:LOCATE 10,25:PRINT"(1) Rate = Amount/Base"
  51. 510     LOCATE 12,25:PRINT"(2) AMOUNT = BASE * RATE"
  52. 520        LOCATE 14,25:COLOR 15:PRINT"(3) ";:COLOR 31:PRINT"Base = Amount/RATE";:COLOR 5:PRINT" "
  53. 530  LOCATE 25,27:PRINT"Press ";:COLOR 31:PRINT"SPACEBAR";:COLOR 5:PRINT" to Continue"
  54. 540  IF INKEY$ <> " " THEN 540
  55. 550  CLS:LOCATE 5,10:PRINT"Rate = percentage (%)"
  56. 560    LOCATE 7,10:PRINT"Amount = subsample; example: 3 of 10.  3 = Amount"
  57. 570        LOCATE 9,10:PRINT"Base = total number in the sample (n); N = 10."
  58. 580  LOCATE 14,10:PRINT"You want to determine the ";:COLOR 15:PRINT"BASE or Sample size";:COLOR 5:PRINT"."
  59. 590  LOCATE 16,10:PRINT"Give the value of the subsample (A) "
  60. 600       LOCATE 16,46:COLOR 15:INPUT A:COLOR 5
  61. 610     LOCATE 18,10:PRINT"What is the percent eqivalent value (%)"
  62. 620  LOCATE 18,50:COLOR 15:INPUT R:COLOR 5
  63. 630  P = 0.01 * R : B = A/P : N = B
  64. 640  N = INT((N + 0.05) * 10)/10
  65. 650     LOCATE 22,10:PRINT"I compute the base (N) value to be " N"total."
  66. 660      LOCATE 25,25:PRINT"Press [";:COLOR 31:PRINT"R";:COLOR 5:PRINT"] to return to menu"
  67. 670  R$ = INKEY$:IF R$ = "R" OR R$ = "r" THEN 10
  68. 680  GOTO 670
  69. 690  ' -------------------------------------------------------------------------
  70. 700  '                          SAVE ROUTINE
  71. 710  ' -------------------------------------------------------------------------
  72. 720  CLS:LOCATE 5,21:PRINT"Do you wish to ";:COLOR 15:PRINT"SAVE";:COLOR 5:PRINT" any changes?"
  73. 730     SAV$=INKEY$:IF SAV$="Y" OR SAV$="y" THEN 760
  74. 740                 IF SAV$="N" OR SAV$="n" THEN 820
  75. 750        GOTO 730
  76. 760  LOCATE 20,55:PRINT" <UNK! {FE22}>;:COLOR 31:PRINT" . . . saving";:COLOR 15:PRINT" "
  77. 770     SAVE"MATHRAT.BAS"
  78. 780          GOTO 820
  79. 790  ' ------------------------------------------------------------------------
  80. 800  '                           EXIT ROUTINE
  81. 810  ' ------------------------------------------------------------------------
  82. 820  CLS:LOCATE 10,21:COLOR 5:PRINT"Are you ready";:COLOR 5:PRINT" to ";:COLOR 31:PRINT"exit";:COLOR 5:PRINT" this program?"
  83. 830     YN$=INKEY$:IF YN$ = "Y" OR YN$ = "y" THEN 860
  84. 840         IF YN$ = "N" OR YN$ = "n" THEN 10
  85. 850      GOTO 830
  86. 860                CLS:RUN"FILES."
  87.